﻿Public Class eAPPCA
    Shared ctx As New Entidades(My.Settings.ConexionEntity)

#Region "Inicio de sesion"

    Public Shared Function Login(ByVal user As String, ByVal pass As String) As Boolean
        Dim usu = (From users In ctx.USUARIOS
                   From per In users.PERFILES
                   Where users.USUARIO = user AndAlso users.CONTRASENA = pass AndAlso users.ESTADO = 1 AndAlso per.IDPERFIL = My.Settings.IdPerfil
                   Select users).ToList()

        If usu.Count = 1 Then
            For Each u In usu
                With SesionActiva
                    .IdUsuario = u.IDUSUARIO
                    .Nombre = String.Format("{0} {1}", u.NOMBRE, u.APELLIDOS)
                    .Usuario = u.USUARIO
                    .Sucursal = u.DETALLE_SUCURSAL_OFICINA.SUCURSALES.NOMBRE
                    .Oficina = u.DETALLE_SUCURSAL_OFICINA.OFICINAS.NOMBRE_OFICINA
                    .IdSucursalOficina = u.IDDETALLE_SUCURSAL_OFICINA
                    .idOficina = u.DETALLE_SUCURSAL_OFICINA.OFICINAS.IDOFICINA
                    .municipio = u.DETALLE_SUCURSAL_OFICINA.SUCURSALES.MUNICIPIOS.NOMBRE_MPIO
                End With
            Next
            Return True
        Else
            Return False
        End If
    End Function
#End Region

#Region "Gestiones por Oficinas"
    Public Shared Function gestiones(ByVal ido As Integer) As List(Of GESTIONES)
        Dim ges = (From g In ctx.GESTIONES.ToList
                   From d In g.DETALLE_OFICINA_GESTIONES
                   Where d.IDOFICINA = ido
                   Select g).ToList
        Return ges
    End Function

    Public Shared Function gestionesXSO(ByVal idso As Integer) As List(Of GESTIONES)
        Dim ges = (From v In ctx.VENTANILLAS
                   From dog In v.DETALLE_OFICINA_GESTIONES
                   Join g In ctx.GESTIONES
                   On dog.IDGESTION Equals g.IDGESTION
                   Where v.IDDETALLE_SUCURSAL_OFICINA = idso
                   Select g Distinct).ToList()

        Return ges
    End Function



#End Region



End Class
